﻿<Serializable()> Public Class Mesa
    'El control de datos ira en el formulario
    Public Sub New(ByVal NombreMesa As String, ByVal DescripcionMesa As String, ByVal Capacidad As Byte)
        _NombreMesa = NombreMesa
        _DescripcionMesa = DescripcionMesa
        _Capacidad = Capacidad
    End Sub

    'Sets y gets
    Public Property NombreMesa As String
    Public Property DescripcionMesa As String
    Public Property Capacidad As Byte

    Public Function ComprobarMesa(ByVal nombre As String, ByVal descripcion As String, ByVal capacidad As String) As String

        If nombre = "" Then
            Return "Falta por introducir el nombre de la mesa"
        End If

        If nombre.Length < 2 Then
            Return "El nombre es demasiado corto"
        End If

        If descripcion = "" Then
            Return "Falta por introducir la descripción de la mesa"
        End If

        If descripcion.Length < 2 Then
            Return "La descripción es demasiada corta"
        End If

        If capacidad = "" Then
            Return "Falta por introducir la capacidad de la mesa"
        End If

        If Not IsNumeric(capacidad) Then
            Return "La capacidad tiene que ser un dato numérico"
        End If

        If Integer.Parse(capacidad) < 1 OrElse Integer.Parse(capacidad) > 30 Then
            Return "La capacidad debe estar entre 1 y 30"
        End If

        Return "OK"

    End Function

End Class
